program exemplo12 (input, output);
var x :  integer;
   procedure r;
	  var r : integer;	
      procedure q;
      var y : integer;
      begin
         read (y);
         write(y)
      end;
   
   begin
      q
   end; 

begin
   read(x);
   r
end.
